home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / circle demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  855b  |  39 lines
  1. 10 REM     ***********************
  2. 20 REM     *    "CIRCLE DEMO"    *
  3. 30 REM     *   VON LEIF KOBBELT  *
  4. 40 REM     *   7500 KARLSRUHE 1  *
  5. 50 REM     *  GRAF-RHENASTR. 23  *
  6. 60 REM     ***********************
  7. 70 :
  8. 80 :
  9. 100 IFA=0THENA=1:LOAD"CIRCLE.CODE",8,1
  10. 110 :
  11. 120 FORA=828TO870:READB:POKEA,B:NEXT
  12. 130 GCLEAR=828:REVERSE=848:CIRCLE=49152
  13. 140 :
  14. 200 POKE53265,59:POKE53272,24:PRINT"[147]"
  15. 210 SYS GCLEAR
  16. 220 :
  17. 300 X=INT(RND(42)*320)
  18. 310 Y=INT(RND(42)*200)
  19. 320 R=INT(RND(42)*50)+25:R1=R*.9
  20. 330 D=INT(RND(42)*10)+3
  21. 340 SYS REVERSE
  22. 350 SYS CIRCLE,X,Y,R,R1
  23. 360 SYS CIRCLE,X,Y,R+1,R1+1
  24. 370 SYS CIRCLE,X,Y,R-D-1,R1-D-1
  25. 380 SYS CIRCLE,X,Y,R-D-2,R1-D-2
  26. 390 SYS REVERSE
  27. 400 FORA=1TOD
  28. 410 SYS CIRCLE,X,Y,R-A,R1-A
  29. 420 NEXTA
  30. 430 GOTO300
  31. 440 :
  32. 450 :
  33. 1000 DATA 169,0,168,162,32,132,20,134
  34. 1010 DATA 21,145,20,200,208,251,232,224
  35. 1020 DATA 64,208,244,96,160,0,162,32
  36. 1030 DATA 132,20,134,21,177,20,73,255
  37. 1040 DATA 145,20,200,208,247,232,224,64
  38. 1050 DATA 208,240,96
  39.